Unit
lmdextcA

Declaration

TLMDDrawTickEvent = procedure(Sender:TObject;aCanvas:TCanvas;aValue:Integer;
                              pos:TPoint) of object;